如何得到这行数据有几个<符号

Dim i As Integer, j As Integer, r As String, k As Integer
r = "373.梦想在望 <周笔畅> 374.赢!奥运! <花儿乐队>"
Do
k = i + 1
i = InStr(k, r, "<")
If i = 0 Then Exit Do
j = j + 1
Loop
Print j

什么意思

我喜欢用正则表达式，呵呵！
Dim oRegExp,szText
szText = "373.梦想在望 <周笔畅> 374.赢!奥运! <花儿乐队>"
Set oRegExp = CreateObject("VBScript.RegExp")
oRegExp.Global=True
oRegExp.IgnoreCase=True
oRegExp.Pattern="<"
msgbox oRegExp.Execute(szText).Count
Set oRegExp = nothing

Private Sub Command1_Click()
aaa = "373.梦想在望 <周笔畅> 374.赢!奥运! <花儿乐队>"
bbb = Replace(aaa, "<", "")
Print Len(aaa) - Len(bbb)
End Sub